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By Douglas C. McArthur 


Why do some forms open quickly, and 
others take much longer to display? 


When the OpenWindow method executes, OPO 
does not display the form until all its objects are 
drawn. If there are bound objects on the form, they 
are not drawn until all associated database access 
has occurred. 


Forms with repeaters often take the longest to open 
due to the number of rows that are being returned 
to populate the repeater. One way to speed display 
of such a form is to delay the query until after the 
form is opened. 


First, set the repeater’s DefaultCondition property so 
that it will not return any rows. This is most easily 
(and quickly) accomplished by — specifying 
COLUMN NAME IS NULL, where COLUMN_NAME is the 
table’s primary key. Be sure to remove 
DefaultCondition afterward if using the Query-By- 
Form (QBF) functionality. This must be done 
because OPO applies the DefaultCondition in addi- 


tion to the user’s conditions. 


Next, modify OpenWindow to perform the query 


after the window is opened (see Figure 1). 


What else can I do about long delays 
when displaying a form? 

Sometimes the delay in displaying a form is 
unavoidable. For instance, a delay can occur 


' Sub OpenWindow( ) 


' Default processing 
Inherited.OpenWindow() 


' Display the form 


TopContainer.ForceUpdate() 


' Remove the DefaultCondition so QBF works. 


repRepeater. 


DefaultCondition = "" 


' Query the repeater for all rows. 


repRepeater.QueryWhere ( 


"COLUMN NAME IS NOT NULL" ) 


' -- End Sub OpenWindow( ) 


Figure 1: Modifying the OpenWindow method. 


when there are many objects on the form. It can 
also happen if there are a large number of rows 
being returned to the repeater (for example, 
when the RowFetchMode property is set to 
Fetch All Immediately). 


In such cases, consider adding this code to the 
object’s Query method: 


Sub Query() 


' Display busy cursor before performing 
‘ the Query() 

Application.SetCursor( 1 ) 
Inherited.Query () 


' -- End Sub Query() 


The same should be done for the QueryWhere 
method. 


Also, if the OpenWindow method is being 
called when the user clicks a button on another 
form, it’s good practice to display the “busy” 
cursor. 


Simply issue this code: 
Application.SetCursor( 1 ) 
within the button’s Click or MouseUp method. 


For an even quicker response, place the following 
line: 


Application.SetCursor ( 1 ) 


within the buttons MouseDown method. And 
don’ forget to call: 
Inherited.MouseDown( x, y, shift). 

Why do line objects sometimes disap- 
pear when viewing a form on a differ- 
ent monitor? 

The default unit of measurement in OPO is inch- 
es, which requires OPO to scale objects based on 
the monitor resolution. This causes problems when 
running an OPO application under monitor reso- 
lutions that are different from the resolution in 
which the application was designed. 
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For instance, a horizontal line created in the designer on my 20" 
Macintosh monitor will, by default, have a SizeY property of 0.013". 
A line drawn in the same way on a 13" monitor has a SizeY of 
0.0014". Occasionally, when OPO translates these measurements 
into pixels for display, the line ends up with a SizeY of 0 pixels, and 
isnt drawn at all (see Figure 2). 
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Figure 2: Only the selected endpoints of the 1ine2 object are seen. 


Luckily, another unit of measurement, called pix, is immune to the 
scaling effects of monitor resolution. 


Converting to pix units is fairly simple. Select all the appropriate 
objects to convert and the Property sheet should now display 
<<multiple>> for the SizeX, SizeY, PositionX, and PositionY 
properties. 


Next, highlight each field and enter pix. OPO converts the units 
automatically for each object (see Figure 3). If there are objects with- 
in containers, you must select the objects separately and repeat the 
procedure. 


Note that converting to the pix unit should be an “all-or-none” 
decision. Mixing objects using pix and inches causes the pix 
objects to remain fixed in size and position while the other objects 
scale. 


How do I cause OPO to pause for a desired amount 
of time? 

In the old days of BASIC programming, a FOR. . .NEXT loop was 
often used to create a pause in program execution. However, with 
the variety of CPU speeds and OPO’s cross-platform ability, hard- 


coding such a delay is now inappropriate. 


Using the TIMER function is one way to pause for several seconds. 
To implement a two-second (approximate) pause, add the user- 
defined method in Figure 4 to your application’s Property sheet, and 
invoke using Application.udmWait( 2 ). 


Where should | put comments in my OPO code? 
Comments that are specific to a particular method should, of 
course, be placed in the method’s body. However, comments that are 
more general in nature (such as revision history, class usage, etc.) can 
be stored in their own “pseudo” method, for example: 
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' Sub udmWait( pSeconds AS Long ) 

' Wait specified number of seconds. 
' NOTE: (In)accurate +/- one second. 
DIM vSeconds AS Long 


vSeconds = TIMER + pSeconds 


WHILE TIMER < vSeconds 
WEND 


' -- End Sub udmWait() 


Figure 3 (Top): Setting multiple object units to pixels. 
Figure 4 (Bottom): Code that gives your application a breather. 


Sub udmRevisionHistory () 


' Ver 1.1 Extended query capability, added 

‘ menuBar options. 

Made extensive use of comboBoxes. -=DCM=- 9.26.95 
' Ver 1.0 Basic query functionality. -=DCM=- 8.01.95 


This approach clearly distinguishes the comments from the rest of 
the code. It also reduces the problem of exceeding the 32K character 
limit on a method. 


If developing code for resale in Oracle’s Object Marketplace, be sure 
to request a copy of the Oracle Power Objects Developers Guidelines. 
For more information, e-mail your request to 
opoinfo@us.oracle.com. 


How can | create a password field that echos 

bullets (- - - ) instead of characters? 

For a fast fix, simply set the FontName property of the password 
field to a font where all characters appear as bullets (for example, 
LockFont on the Macintosh). However, this has some drawbacks. 
For instance, on machines without the font installed, OPO auto- 
matically substitutes another font that will probably display the 
characters typed. 


Unfortunately, version 1.0 of OPO provides little control over 
the display characteristics of field objects. For example, if field 
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' Display bullet (*) character instead of text for the 
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1 ' fidPassword.\Value in fldPasswordMask.Value 
' Display a "fake" cursor (1) in fldPasswordMask. 
oa ' Store string in fldPasswordMask.udp\Value so that 
An, ' deleting characters works properly. -=DCM=- 
K2 (1 eee cece cece eceeceeueeeece C2 (1) ccc 
Name Type Datatype | fidPassword.SetFocus() 
udplnitializedFlag Property Boolean ' Execute only if a change has occured 
udp Value Property string IF fidPasswordMask.udpValue <> fldPassword.\Value & "I" THEN 
udmGetKeypress Sub 
' Store the string in udp\alue for later comparison 
o =| fidPasswordMask.Value = RIGHT( "*eeeeeeeeoorooroooos|" f: 
w 
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ch < udplnitializedFlag False 


' Function TestCommand( cmdCode as Integer) 
Inherited.TestCommand( cmdCode ) 


as Long 


' Display bullet (-) character instead of text for 
‘ the password via fldPassword.udmGetKeypress() 
' Execute for only the fldPassword object 
IF Application.GetFocus() = fldPassword THEN 
' Check for a keypress in fldPassword 
fldPassword.udmGetKeypress() 


END IF 


' -- End Function TestCommand() 


' Sub udmGetKeypress() 


' Display bullet (-) character instead of text for 

‘ the password field by reflecting on-the-fly changes 
‘ in fldPassword.Value in fldPasswordMask.Value 

' Display a "fake" cursor (|) in fldPasswordMask. 

' Store string in fldPasswordMask.udpValue so that 

' deleting characters works properly. 


' Force an update of fldPassword.Value 
fldPassword.SetFocus() 


' Execute only if a change has occurred 
IF fldPasswordMask.udpValue <> fldPassword.Value & 
"|" THEN 
' Store the string in udpValue for later comparison 
fldPasswordMask.udpValue = fldPassword.Value & "|" 


' Display bullet (-) for each character in string 
fldPasswordMask.Value = & 
RIGHT( "srr r ttre tree eee ees ake & 
LEN( fldPassword.Value & "|" ) ) 
END IF 


' -- End Sub udmGetKeypress() 


Figure 5 (Top): Form fields and using the user-defined methods. 
Figure 6 (Middle): Add this code to the TestCommand method. 
Figure 7 (Bottom): The user-defined GetKeypress method. 


' Sub FocusEntering() 


' Clear the field whenever focus first enters, 
' [but not when via the SetFocus() method] 
' Set udpInitializedFlag when focus is here. 
IF udpInitializedFlag = FALSE THEN 
fldPassword.Value = "" 
udpInitializedFlag = TRUE 
END IF 


Inherited. FocusEntering() 
' -- End Sub FocusEntering() 
' Sub FocusLeaving() 


' Remove the "fake" cursor from the end of 
' fldPasswordMask.Value when focus leaves 
IF RIGHT(fldPasswordMask.Value, 1) = "|" THEN & 
fldPasswordMask.Value = & 
LEFT(fldPasswordMask.Value, & 
LEN( fldPasswordMask.Value ) -1 ) 


' Reset focus flag for next time 
udpInitializedFlag = FALSE 


Inherited.FocusLeaving() 


' -- End Sub FocusLeaving() 


Figure 8: Replacement contents for the FocusEntering and FocusLeaving 
methods. 


objects had a ColorText property, the display of password char- 
acters could be suppressed by displaying them in white on a 
white background. Overlaying another object on the text field 
wont work because OPO brings the field object to the front on 
the SetFocus method. 


The PostChange method is triggered only after the FocusLeaving 
method, so that wont work. Trapping individual keypress events 
(except for menu shortcuts) isn’t supported in OPO 1.0 either. This 
rules out trying to grab password characters and display bullets instead. 


Here’s a quick-and-dirty seven-step trick that gets around the prob- 
lem by using the TestCommand method to find on-the-fly changes 
to the password field, and update the display accordingly: 

1) First, create these field objects on a form: fldLogin, 
fldPassword, and fldPasswordMask. For each object, set the 
DataType property to String and the DataSize property to 10. 
Position fldPasswordMask under fldLogin, and _ set 
f1dPasswordMask.ReadOnly to True. 

2) Now add some static text object labels for fldLogin 
and fldPasswordMask (not fldPassword) (see Figure 5). 

3) Add the code in Figure 6 to the container form’s TestCommand 
method. Now add the user-defined GetKeypress method in 
Figure 7 to fldPassword. 

4) Add the user-defined property udpValue (of type String) to 
fldPasswordMask. 

5) Add the user-defined property udpInitializedFlag (of type 
Boolean) to fldPassword and set it to False. 

6) Modify fldPassword’s FocusEntering and FocusLeaving meth- 
ods with the code in Figure 8. 
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= File Edit Database Window 
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Figure 9: When the 
user enters a pass- 
word, it’s shown in 

asterisks. 


Login: 
password: [seeee! 
h 


7) Lastly, setting the Visible property to False prohibits a 
FocusEntering that does not work for us. Instead, set the 
SizeX and SizeY properties of fldPassword to 0, so that the 
field is invisible. 


Now give it a try. Figure 9 shows the form at run-time. There’s room 
for improvement (for instance, is not accommodated, the 
“cursor doesn't blink, the user must from Login field to 
Password field, etc.), but it gets the job done. 
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Why do some objects in my 
application appear grey on 
the Mac, but look light 
green in Windows? 

Check the object’s ColorFill 
property — you'll see that it’s 
probably set to 9. Due to a bug 
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in the Macintosh version, Serra 
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to the proper color, 16 (see 
Figures 10 and 11). 
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Why will my run-time or 
stand-alone application 
access a Blaze database 
with no problem, but won't 
access a remote server? 
The run-time or stand-alone 
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Figure 10: The ColorFill options 


application does not include the | 
in Property sheet on the Mac. 


database driver files (.POD files) 


required for database access. Make 
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Figure 11: Showing ColorFill 
options in Property sheet in 
Windows. 





sure that the appropriate .POD 
file for the server that you are 
attempting to connect to Is 
located in the same directory or 
folder as the stand-alone or run- 
time application. 


Also, if connecting to a remote 
Oracle7 Server, make sure that 
SQL*Net is properly configured 
using TNSPing or NETTEST. 


This Month's Tips & Tricks 
Challenge: 

Create a “text field” with ColorText 
and ColorFill properties. BJ 
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